extern int dtgex2_(logical *wantq, logical *wantz, integer *n, doublereal *a, integer *lda, doublereal *b, integer *ldb, doublereal *q, integer *ldq, doublereal *z__, integer *ldz, integer *j1, integer *n1, integer *n2, doublereal *work, integer *lwork, integer *info);
/*:ref: dcopy_ 14 5 4 7 4 7 4 */
/*:ref: dlacpy_ 14 8 13 4 4 7 4 7 4 124 */
/*:ref: dlamch_ 7 2 13 124 */
/*:ref: dlassq_ 14 5 4 7 4 7 7 */
/*:ref: dlartg_ 14 5 7 7 7 7 7 */
/*:ref: drot_ 14 7 4 7 4 7 4 7 7 */
/*:ref: dgemm_ 14 15 13 13 4 4 4 7 7 4 7 4 7 7 4 124 124 */
/*:ref: dtgsy2_ 14 23 13 4 4 4 7 4 7 4 7 4 7 4 7 4 7 4 7 7 7 4 4 4 124 */
/*:ref: dscal_ 14 4 4 7 7 4 */
/*:ref: dgeqr2_ 14 7 4 4 7 4 7 7 4 */
/*:ref: dorg2r_ 14 8 4 4 4 7 4 7 7 4 */
/*:ref: dgerq2_ 14 7 4 4 7 4 7 7 4 */
/*:ref: dorgr2_ 14 8 4 4 4 7 4 7 7 4 */
/*:ref: dormr2_ 14 14 13 13 4 4 4 7 4 7 7 4 7 4 124 124 */
/*:ref: dorm2r_ 14 14 13 13 4 4 4 7 4 7 7 4 7 4 124 124 */
/*:ref: dlagv2_ 14 11 7 4 7 4 7 7 7 7 7 7 7 */
